home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / FullMove 1.2.cpt / FullMove 1.2 / card_3055.txt < prev    next >
Text File  |  1991-12-25  |  4KB  |  129 lines
  1. -- card: 3055 from stack: in.2
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=174 top=281 right=311 bottom=343
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: FullMove
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   answer "Move a :" with "File" or "Folder"
  37.   put it into What
  38.  
  39.   if What is "File"
  40.   then put FilePath(empty,"File to move :") into Path
  41. else put FolderPath("Dossier to move :") into Path
  42.  
  43. if Path is empty then exit mouseUp
  44.  
  45. put FolderPath("Destination folder :") into Dest
  46. if Dest ‚↠empty
  47. then
  48. FullMove Path,Dest
  49. if the Result ‚↠empty
  50. then answer the Result
  51. else answer What && "moved"
  52. end if
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part contents for card part 1
  58. ----- text -----
  59.  
  60.  
  61.                                               FullMove 1.2
  62.  
  63.                                           by Fr√©d√©ric RINALDI
  64.  
  65.  
  66. DESCRIPTION
  67. ------------
  68.   FullMove allows to move a file or folder on a same volume.
  69.  
  70. SYNTAX
  71. --------
  72.             FullMove <prov path>,<dest path>[,"DontResolveAlias"]
  73.  
  74. PARAMETERS
  75. ------------
  76.    <prov path> can be a single name or whole pathname. If just a single name is supplied, the file is assumed to be in the same folder than the current stack.
  77.  
  78.    <dest path> must not include the name of the item to move, but just its path.
  79.  
  80.    "dontResolveAlias" allows to deal with an alias file itself (System 7.0 only) rather than with the file pointed by it.
  81.  
  82.    Using "!", "?" or "=" as first parameter will return an online help (resp. copyright, syntax and output).
  83.  
  84.  
  85. USING
  86. -----
  87. If an error occurs, FullMove can return :
  88.      "Error : Not a file"
  89.      "Error : Not a folder"
  90.      "Error : Alias file not supported"
  91.      "Error : Volume not found"
  92.      "Error : Bad Name"
  93.      "Error : File not found"
  94.      "Error : Folder not found"
  95.      "Error : File is busy"
  96.      "Error : I/O Error"
  97.      "Error : Folder is full"
  98.      "Error : Volume is locked"
  99.      "Error : No resource fork"
  100.      "Error : Duplicate file/folder name"
  101.      "Error : Moving whole volume not allowed"
  102.      "Error : Not an AppleShare volume"
  103.      "Error : AppleShare insufficient privileges"
  104.      "Error : Missing or empty parameter(s)"
  105.      "Error : Third param can only be "DontResolveAlias""
  106.      "Error : Cannot move to different volume"
  107.      "Error : Same prov and dest folder"
  108.  
  109.  
  110. HISTORY
  111. --------
  112. 1.2 :                                                                                          12/25/91
  113. ‚Ä¢ Fixed alias file bug under System 7.0.1
  114.  
  115. 1.1 :                                                                                          08/04/91
  116. ‚Ä¢ Added support for System 7.0 alias files
  117. ‚Ä¢ General enhancement of the code
  118. ‚Ä¢ Added "DontResolveAlias" parameter
  119. ‚Ä¢ Added "=" param for online help
  120.  
  121.  
  122.   This stack uses FilePath & FolderPath XFCNs, ¬© 1898, 1990 Apple Computer, Inc.
  123. --------------------------------------------------------------------
  124. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  125. Any commercial use must be licensed and aknowledged by the author.
  126.  
  127.                                   ¬© Frederic RINALDI 1990,1991
  128.  
  129. AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111